home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / life expect.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  180 lines
  1. 1 REM  LIFE EXPECTANCY   SEPT 1979
  2. 2 REM
  3. 3 REM  ANDY GAMPLE  COLUMBIA COLLEGE
  4. 4 REM  1619 W 10 AVE  VANCOUVER BC
  5. 5 REM
  6. 6 REM  FROM 'PUBLIC DOMAIN',MSE,SVP
  7. 7 REM
  8. 8 REM  COMPUTES LIFE EXPECTANCY
  9. 9 REM  PET  8K
  10. 10 REM ADAPTED FROM CREATIVE COMPUTING
  11. 11 REM  BOOK 2
  12. 12 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]         [221][160]      SAN MATEO COUNTY     [160][221]
  13. 13 [143]"(null)     OFFICE OF EDUCATION     (null)         (null)             &               (null)
  14. 14 REM"[221]  COMPUTER-USING EDUCATORS   [221]         [221]          SOFTSWAP           [221]
  15. 15 [143]"(null)                             (null)         (null)                             (null)
  16. 16 REM"[221]333 MAIN STREET, REDWOOD CITY[221]         [221]CA 94063 (415)364-5600 EX4401[221]
  17. 17 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP         ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  18. 18 REM"[221] PROGRAMS MAY BE COPIED FOR  [221]         [221] EDUSATIONAL USE ONLY AND    [221]
  19. 19 [143]"(null) ARE NOT TO BE SOLD.         (null)         /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  20. 150 PRINTCHR$(147);"    LIFE EXPECTANCY":PRINT:PRINT:PRINT
  21. 160 RESTORE
  22. 170 PRINT"THIS IS A TEST TO PREDICT HOW LONG      YOU'LL LIVE. ";
  23. 180 PRINT"I'LL ASK YOU A SERIES OF   SHORT QUESTIONS, ";
  24. 190 PRINT"WHICH YOU WILL ANSWER  BY PRESSING THE APPROPRIATE KEY.":PRINT
  25. 200 PRINT"      DO NOT PRESS RETURN"
  26. 210 PRINT:PRINT:PRINT
  27. 220 R5=1
  28. 230 Z=72:A$="ABCDEMGHIJKLFNO"
  29. 240 GOTO1440
  30. 250 R5=R5+1
  31. 260 IFR5>21THEN1620
  32. 270 DATA"++++++++++SEX+++++++++++"
  33. 280 DATA"ARE YOU MALE OR FEMALE?"
  34. 290 DATA"M=MALE"
  35. 300 DATA" F=FEMALE"
  36. 310 DATA2,"MF"
  37. 320 DATA"+++++++LIFE STYLE++++++++++"
  38. 330 DATA"WHERE DO YOU LIVE?"
  39. 340 DATA"G=CITY OVER 2 MILLION"
  40. 350 DATA"K=TOWN UNDER 10 000, OR A FARM"
  41. 360 DATA" I=NEITHER"
  42. 370 DATA3,"GKI"
  43. 380 DATA"+++HOW DO YOU WORK?+++"
  44. 390 DATA"M=DESK WORK"
  45. 400 DATA"L=HEAVY PHYSICAL LABOUR"
  46. 410 DATA" I=NEITHER"
  47. 420 DATA3,"MLI"
  48. 430 DATA"HOW LONG DO YOU EXERCISE STRENUOUSLY:"
  49. 440 DATA"(TENNIS, RUNNING, ETC)?"
  50. 450 DATA"F=5TIMES A WEEK FOR AT LEAST HALF AN      HOUR"
  51. 460 DATA"K=2 OR 3 TIMES A WEEK"
  52. 470 DATA" I=NEITHER"
  53. 480 DATA3,"FKI"
  54. 490 DATA"+++WHO DO YOU LIVE WITH?+++"
  55. 500 DATA"N=SPOUSE,FRIEND OR FAMILY"
  56. 510 DATA"H=LIVED ALONE FOR 1-10 YEARS"
  57. 520 DATA"G=LIVED ALONE FOR 11-20 YEARS"
  58. 530 DATA"M=LIVED ALONE FOR 21-30 YEARS"
  59. 540 DATA"E=LIVED ALONE FOR 31-40 YEARS"
  60. 550 DATA" D=LIVED ALONE FOR MORE THAN 40 YEARS"
  61. 560 DATA6,"NHGMED"
  62. 570 DATA"++++++++PSYCHE++++++++++"
  63. 580 DATA"DO YOU SLEEP MORE THAN 10 HOURS A       NIGHT?"
  64. 590 DATA"I=NO"
  65. 600 DATA" E=YES"
  66. 610 DATA2,"IE"
  67. 620 DATA"++++++MENTAL STATE+++++++"
  68. 630 DATA"M=IF YOU ARE INTENSE,AGGRESSIVE OR        EASILY ANGERED"
  69. 640 DATA"L=IF YOU ARE EASY-GOING, RELAXED OR A     FOLLOWER"
  70. 650 DATA" I=NEITHER"
  71. 660 DATA3,"MLI"
  72. 670 DATA"++++++HOW YOU FEEL++++++++"
  73. 680 DATA"ARE YOU HAPPY OR UNHAPPY?"
  74. 690 DATA"J=HAPPY"
  75. 700 DATA"G=UNHAPPY"
  76. 710 DATA" I=NEITHER"
  77. 720 DATA3,"JGI"
  78. 730 DATA"++++++FACTORS+++++++"
  79. 740 DATA"HAVE YOU HAD A SPEEDING TICKET IN THE   LAST YEAR?"
  80. 750 DATA"H=YES"
  81. 760 DATA" I=NO"
  82. 770 DATA2,"HI"
  83. 780 DATA"++++++INCOME++++++"
  84. 790 DATA"DO YOU EARN MORE THAN $50 000 A YEAR?"
  85. 800 DATA"G=YES"
  86. 810 DATA" I=NO"
  87. 820 DATA2,"GI"
  88. 830 DATA"++++++SCHOOLING++++++"
  89. 840 DATA"J=FINISHED COLLEGE"
  90. 850 DATA"L=GRADUATE OR PROFESSIONAL DEGREE"
  91. 860 DATA" I=NEITHER"
  92. 870 DATA3,"JLI"
  93. 880 DATA"++++++++AGE++++++++++"
  94. 890 DATA"ARE YOU 65 OR OLDER AND STILL WORKING?"
  95. 900 DATA"L=YES"
  96. 910 DATA" I=NO"
  97. 920 DATA2,"LI"
  98. 930 DATA"+++++++HEREDITY++++++++"
  99. 940 DATA"K=IF ANY GRANDPARENTS LIVED TO 85         YEARS OLD"
  100. 950 DATA"O=IF ALL GRANDPARENTS LIVED TO 80         YEARS OLD"
  101. 960 DATA" I=NEITHER"
  102. 970 DATA3,"KOI"
  103. 980 DATA"HAS ANY PARENT DIED OF A STROKE"
  104. 990 DATA"OR HEART ATTACK BEFORE THE AGE OF 50?"
  105. 1000 DATA"E=YES"
  106. 1010 DATA" I=NO"
  107. 1020 DATA2,"EI"
  108. 1030 DATA"+++FAMILY DISEASES+++"
  109. 1040 DATA"ANY PARENT, BROTHER OR SISTER UNDER 5   HAS (OR HAD):"
  110. 1050 DATA"CANCER, A HEART CONDITION OR DIABETES   SINCE CHILDHOOD?"
  111. 1060 DATA"M=YES"
  112. 1070 DATA" I=NO"
  113. 1080 DATA2,"MI"
  114. 1090 DATA"+++++HEALTH+++++"
  115. 1100 DATA"HOW MUCH TOBACCO DO YOU SMOKE?"
  116. 1110 DATA"A=MORE THAN 2 PACKS A DAY"
  117. 1120 DATA"C=1 TO 2 PACKS A DAY"
  118. 1130 DATA"M=ONE HALF TO ONE PACK A DAY"
  119. 1140 DATA" I=DON'T SMOKE"
  120. 1150 DATA4,"ACMI"
  121. 1160 DATA"++++++DRINK+++++++"
  122. 1170 DATA"DO YOU DRINK THE EQUIVALENT OF A "
  123. 1180 DATA"QUARTER BOTTLE OF LIQUOR A DAY?"
  124. 1190 DATA"H=YES"
  125. 1200 DATA" I=NO"
  126. 1210 DATA2,"HI"
  127. 1220 DATA"+;++++WEIGHT++++++"
  128. 1230 DATA"A=OVERWEIGHT BY 50 POUNDS OR MORE"
  129. 1240 DATA"E=OVER BY 30-50 POUNDS"
  130. 1250 DATA"G=OVER BY 10-30 POUNDS"
  131. 1260 DATA" I=NOT OVERWEIGHT"
  132. 1270 DATA4,"AEGI"
  133. 1280 DATA"++++++CHECK-UPS+++++++"
  134. 1290 DATA"IF A MALE OVER 40: DO YOU HAVE AN                   ANNUAL CHECK-UP?"
  135. 1300 DATA"K=YES"
  136. 1310 DATA" I=NO OR NOT A MALE OR UNDER 40 YEARS      OLD"
  137. 1320 DATA2,"KI"
  138. 1330 DATA"IF A WOMAN: DO YOU SEE A GYNECOLOGIST               ONCE A YEAR?"
  139. 1340 DATA"K=YES"
  140. 1350 DATA" I=NO OR NOT A WOMAN"
  141. 1360 DATA2,"KI"
  142. 1370 DATA"++++++CURRENT AGE++++++"
  143. 1380 DATA"I=UNDER 30"
  144. 1390 DATA"K=BETWEEN 30 AND 40 YEARS OLD"
  145. 1400 DATA"L=BETWEEN 40 AND 50 YEARS OLD"
  146. 1410 DATA"F=BETWEEN 50 AND 70 YEARS OLD"
  147. 1420 DATA" N=OVER 70"
  148. 1430 DATA5,"KLFNI"
  149. 1440 READQ$:PRINTQ$:PRINT
  150. 1450 FORQ=2TO7:READQ$
  151. 1460 IFLEFT$(Q$,1)=" "THEN1490
  152. 1470 PRINT"  ";Q$
  153. 1480 NEXTQ
  154. 1490 PRINT" ";Q$:READC,C$
  155. 1500 PRINT:PRINT"CHOOSE ONE OF THE LETTERS ABOVE";
  156. 1510 GETG$:IFG$=""THEN1510
  157. 1520 PRINTG$
  158. 1530 FORC2=1TOC
  159. 1540 IFLEFT$(G$,1)=MID$(C$,C2,1)THEN1570
  160. 1550 NEXTC2
  161. 1560 GOTO1500
  162. 1570 PRINTCHR$(147):PRINT:PRINT
  163. 1580 FORN=1TO15
  164. 1590 IFLEFT$(G$,1)=MID$(A$,N,1)THEN1610
  165. 1600 NEXT
  166. 1610 M=N-9:Z=Z+M:GOTO250
  167. 1620 PRINT:PRINT:PRINT"YOU ARE EXPECTED TO LIVE TO THE AGE OF  "Z" YEARS."
  168. 1630 IFZ<60THEN1700
  169. 1640 FORY=60TOZSTEP5
  170. 1650 READM$,F$
  171. 1660 NEXTY
  172. 1670 DATA"26%","15%","36%","20%","48%","30%","61%","39%"
  173. 1680 DATA"75%","53%","87%","70%","96%","88%","99.9%","99.6%"
  174. 1690 PRINT"OUT-LIVING "M$" OF THE MEN AND "F$" OF THE WOMEN."
  175. 1700 FORI=1TO9:GETAA$:NEXTI
  176. 1710 PRINT:PRINT:PRINT"ANOTHER RUN (Y/N)?";
  177. 1720 GETAA$:IFAA$=""THEN1720
  178. 1730 PRINTAA$:IFAA$="Y"THEN110
  179. 1740 END
  180.